home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / numbers.swg / 0041_Get Low Order of WORD.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  669 b   |  16 lines
  1. {*****************************************************************************
  2.  * Function ...... wLo()
  3.  * Purpose ....... Return the low order word from a longint (double word)
  4.  * Parameters .... n          LONGINT to retrieve low word from
  5.  * Returns ....... Low word from n
  6.  * Notes ......... LO only returns the LOw byte from a word.  I needed
  7.  *                 something that returned the low WORD from a LONGINT.
  8.  * Author ........ Martin Richardson
  9.  * Date .......... October 9, 1992
  10.  *****************************************************************************}
  11. FUNCTION wLo( n: LONGINT ): WORD; ASSEMBLER;
  12. ASM
  13.    MOV  AX, WORD PTR n[0]
  14. END;
  15.  
  16.